(comint-exec-1): Check command is non-null first.

Part of gdb-mi.el change (2009-08-28).

diff --git a/lisp/comint.el b/lisp/comint.el
index 69fd32d9b3bfd766a9aec70b3924fbe8f1413346..36d7de5ec2fcc2123955857f0c06246a965c0b86 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -790,7 +790,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
              default-directory
            "/"))
        proc decoding encoding changed)
-    (let ((exec-path (if (file-name-directory command)
+    (let ((exec-path (if (and command (file-name-directory command))
                         ;; If the command has slashes, make sure we
                         ;; first look relative to the current directory.
                         (cons default-directory exec-path) exec-path)))